﻿Public Class InterfaceCommon
    'テキストボックスを読専用に設定する
    Public Shared Sub readonlyTextBox(ByRef obj As TextBox)
        obj.ReadOnly = True
        obj.BackColor = Color.LightGray
    End Sub
    'テキストボックスを読専用に設定する
    Public Shared Sub readonlyRadioButton(ByRef obj As RadioButton)
        obj.AutoCheck = False
    End Sub
End Class
